home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cfixvb / currfixv.txt < prev    next >
Encoding:
Text File  |  1991-09-08  |  2.3 KB  |  47 lines
  1.      This ZIP contains the Visual Basic version of an assembler routine to fix
  2.  Currency variables at a given number of decimal places.  It was inspired by
  3.  a discussion on the Compuserve MSLANG forum.  The PDS version is in CFIXQB.
  4.  
  5.      The PDS version has ASM and OBJ files and a test QLB for PDS 7.1.  The VB
  6.  version has ASM, OBJ, and DLL files.  If you want to modify the VB version,
  7.  you'll need some way to make a DLL.  If you have such a resource, you won't
  8.  need any files other than the ones supplied... if you don't, there's no way we
  9.  could provide enough files to help you.  Don't hesitate to ask if you'd like 
  10.  help in building a DLL or adding this to your own DLL.
  11.  
  12.      Similar functions will also be available (with several hundred others) in
  13.  versions of the MicroHelp Muscle libraries for QB/PDS and for Visual Basic.
  14.  
  15.    ----------------------------------------------------------------------
  16.      Legalese:
  17.  
  18.      Written by Jim Mack, CIS 76630,2012, bix "jsmack"
  19.      Copyright 1991, Editing Services Co.  All rights reserved.
  20.  
  21.      Free for non-commercial use.  Commercial rights freely granted on 
  22.        written request.
  23.    ----------------------------------------------------------------------
  24.  
  25.      DECLARE SUB CurrFix Lib "CurrFix.DLL" (CurrVal@, ByVal Places%, ByVal Truncate%)
  26.  
  27.      Adjusts the passed Currency variable to remove one or more digits to the
  28.  right of the decimal point.  Floating point is avoided for maximum speed.
  29.  If you're trying to maintain n-place values, you should call this routine
  30.  after any operation which could add additional places, such as multiplying a
  31.  currency value by a tax rate like 1.0525, when computing overtime wages, etc.
  32.  
  33.      CurrVal@ is directly modified, not returned as a function result.
  34.  
  35.      Places% may be 0 to 3 and will result in a value with the indicated number
  36.  of digits beyond the decimal point.  Other values are ingored with CurrVal@
  37.  left unchanged.
  38.  
  39.      If Truncate% is non-zero the excess places are simply removed, otherwise
  40.  the value is rounded using traditional financial rounding (not IEEE rounding).
  41.  
  42.      This code performs roughly the equivalent of the following Basic code:
  43.  
  44.           CVal@ = INT((CVal@ * (10^n)) + .5) / (10^n)
  45.    ----------------------------------------------------------------------
  46.  
  47.